home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Shareware World / Comms & Internet / SB114 / Plugins / opmeplease < prev    next >
Text File  |  1997-01-01  |  395b  |  25 lines
  1. 'OpMePlease sample ONTEXT plugin
  2. '© John Bafford, 1996-1997
  3.  
  4. *ONTEXT "op me please*" -1 0
  5. *ENDCONF
  6.  
  7. @ENTRY op me please*
  8. @IF AUTOOP = TRUE op kick
  9.  
  10. @LABEL op
  11. @IF NICKHASOPS = $NICK already opThem
  12.  
  13. @LABEL already
  14. SAY You already have ops, $NICK!
  15. @END
  16.  
  17. @LABEL opThem
  18. OP $NICK
  19. @WRITELN $NICK required ops.
  20. @END
  21.  
  22. @LABEL kick
  23. KICK $NICK No ops begging!
  24. @WRITELN $NICK was kicked for ops begging.
  25. @END